home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / Aminet / text / edit / BlacksEditor.lha / BlacksEditor / Rexx / DeleteFile.bed < prev    next >
Text File  |  1997-12-03  |  314b  |  17 lines
  1. /*
  2. ** $VER: DeleteFile.bed 1.0 (17.04.96)
  3. **
  4. ** Simple script to delete a file, I really missed this option :)
  5. **
  6. ** Written by Gerbert Nuijen
  7. */
  8.  
  9. OPTIONS RESULTS
  10.  
  11. GetFilePath PATH
  12. fpath = RESULT
  13.  
  14. 'RequestFile TITLE="Delete File..." OKGADGET=Delete PATH=' || fpath
  15. ADDRESS COMMAND 'Delete ' || RESULT || ' QUIET'
  16.  
  17.